SUBROUTINE ABOR1(CDTEXT)
  CHARACTER(LEN=*), INTENT(IN) :: CDTEXT
  PRINT *, 'ERROR ABOR1 CDTEXT:', CDTEXT
  STOP
END SUBROUTINE ABOR1
